home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00545.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  473 b   |  20 lines
  1. on zoom3
  2.   if the freeBytes < (500 * 1024) then
  3.     puppetSprite(4, 0)
  4.     updateStage()
  5.     unLoadCast()
  6.   end if
  7.   puppetSprite(4, 1)
  8.   set the stretch of sprite 4 to 1
  9.   if the width of sprite 4 > 1200 then
  10.     set the width of sprite 4 to 640
  11.     puppetSprite(4, 0)
  12.     updateStage()
  13.   else
  14.     set the width of sprite 4 to the width of sprite 4 + 300
  15.     set the height of sprite 4 to the height of sprite 4 + 300
  16.     puppetSprite(4, 0)
  17.     updateStage()
  18.   end if
  19. end
  20.